home *** CD-ROM | disk | FTP | other *** search
/ Immoral Angel 1 / Immoral Angel 1.iso / pc / program / saver3.dxr / 00098.ls < prev    next >
Encoding:
Text File  |  1997-07-11  |  1.5 KB  |  58 lines
  1. on startMovie
  2.   global markerposition, saverphotonum
  3.   set saverphotonum to 0
  4.   puppetPalette("PLphoto")
  5.   updateStage()
  6.   set markerposition to mouseH() & "," & mouseV()
  7.   set the timeoutScript to EMPTY
  8.   set the keyDownScript to "exitMovie"
  9.   set the mouseDownScript to "exitMovie"
  10. end
  11.  
  12. on changephoto
  13.   global saverphotonum
  14.   set saverphotonum to saverphotonum + 1
  15.   if saverphotonum = 89 then
  16.     set saverphotonum to 1
  17.   end if
  18.   put saverphotonum
  19.   puppetSprite(1, 1)
  20.   set the type of sprite 1 to 1
  21.   set the ink of sprite 1 to 0
  22.   set the castNum of sprite 1 to the number of member "cineLogo"
  23.   set the locH of sprite 1 to random(600) + 30
  24.   set the locV of sprite 1 to random(450) + 30
  25.   puppetSprite(2, 1)
  26.   set the type of sprite 2 to 1
  27.   set the ink of sprite 2 to 0
  28.   set the castNum of sprite 2 to the number of member string(saverphotonum)
  29.   set the locH of sprite 2 to random(420) + 100
  30.   set the locV of sprite 2 to random(180) + 150
  31.   puppetTransition(23)
  32.   updateStage()
  33.   unLoad()
  34. end
  35.  
  36. on idle
  37.   global markerposition
  38.   set currentmarkerposition to mouseH() & "," & mouseV()
  39.   if currentmarkerposition <> markerposition then
  40.     exitmovie()
  41.   end if
  42. end
  43.  
  44. on exitmovie
  45.   global fileName
  46.   set the keyDownScript to EMPTY
  47.   set the mouseDownScript to EMPTY
  48.   set the timeoutScript to "doTimeOut"
  49.   set the locH of sprite 1 to -500
  50.   set the locV of sprite 1 to -500
  51.   set the locH of sprite 2 to -500
  52.   set the locV of sprite 2 to -500
  53.   updateStage()
  54.   puppetPalette("PLsystem")
  55.   updateStage()
  56.   go(1, fileName)
  57. end
  58.